﻿Imports System.Data
Imports System.Data.OleDb
Public Class DetallesAnimales

    Public conexion As New OleDb.OleDbConnection("Provider=Microsoft.ACE.Oledb.12.0; Data Source=nuevozoo.accdb")
    Public Shared eleccion As String

    Private Sub DetallesAnimales_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adaptador As New OleDbDataAdapter("Select animales.nombre, tipo_vacunas.nombre, animal_vacunas.fecha, tipo_vacunas.descripcion from animales, tipo_vacunas, animal_vacunas where animales.cod_animal = " & BusquedaClientesAnimales.animal & " and animales.cod_animal = animal_vacunas.cod_animal and tipo_vacunas.cod_vacuna = animal_vacunas.cod_vacuna", conexion)
        Dim miDataset As New DataSet

        adaptador.Fill(miDataset, "animales")
        DataGridViewVacunas.DataSource = miDataset
        DataGridViewVacunas.DataMember = "animales"

        Dim adaptador2 As New OleDbDataAdapter("Select animales.nombre, tipo_enfermedades.nombre, tipo_enfermedades.descripcion from animales, tipo_enfermedades, animal_enfermedades where animales.cod_animal = " & BusquedaClientesAnimales.animal & " and animales.cod_animal = animal_enfermedades.cod_animal and tipo_enfermedades.cod_enfermedad = animal_enfermedades.cod_enfermedad", conexion)
        Dim miDataset2 As New DataSet

        adaptador2.Fill(miDataset2, "animales")
        DataGridViewEnfermedades.DataSource = miDataset2
        DataGridViewEnfermedades.DataMember = "animales"

        Dim adaptador3 As New OleDbDataAdapter("Select animales.nombre, tipo_operaciones.nombre, animal_operaciones.fecha, tipo_operaciones.descripcion from animales, tipo_operaciones, animal_operaciones where animales.cod_animal = " & BusquedaClientesAnimales.animal & " and animales.cod_animal = animal_operaciones.cod_animal and tipo_operaciones.cod_operacion = animal_operaciones.cod_operacion", conexion)
        Dim miDataset3 As New DataSet

        adaptador3.Fill(miDataset3, "animales")
        DataGridViewOperaciones.DataSource = miDataset3
        DataGridViewOperaciones.DataMember = "animales"


    End Sub
End Class